home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SGI O2 Out of Box Experience 2.2
/
SGI O2 Out of Box Experience 2.2.iso
/
SysTour
/
clean_html.pl
< prev
next >
Wrap
Perl Script
|
1998-05-26
|
344b
|
27 lines
#!/usr/bin/perl5
$^I=".bak";
while (<>) {
next if /<!--\s*WEBMAGIC.*-->\s*$/;
&remove_SGI_stuff;
&fix_paths;
&remove_comments;
print;
}
sub remove_SGI_stuff {
s#SGI_FULLPATH="[\w/\-\.]*"##g;
s/SGI_SETHEIGHT//g;
s/SGI_SETWIDTH//g;
}
sub fix_paths {
s#/usr/ns-home/docs/monkey/##g;
}
sub remove_comments {
s/<!--\s*.*\s*-->//g;
}